home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / pump_src / setup / test.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1995-10-26  |  1.3 KB  |  60 lines
  1. {$M 4096,0,4096}
  2. {$X+}
  3.  
  4.  
  5. USES DOS, Crt, LibFile, Devices;
  6.  
  7. CONST
  8.   MainFile='PUMP.EXE';
  9.   VtoFileSpec='C:\PUMP.VTO';
  10.   MINIMUM_MEM=575000;
  11.  
  12. VAR
  13.   f:file;
  14.  
  15. BEGIN
  16.   IF ParamCount = 0 THEN BEGIN
  17.     { Memoria }
  18.     {CheckMem;}
  19.     Write(Chr(7));
  20.  
  21.     { Borrar el VTO si existe }
  22.     Assign(f, VtoFileSpec);
  23.     {$I-}
  24.     Reset(f);
  25.     {$I+}
  26.     if Ioresult = 0 then
  27.       Erase(f);
  28.  
  29.     { Ejecutar el setup }
  30.     FicheroExe := MainFile;
  31.     CommandLine := '';
  32.     ExecFile(LF_FindFile('SETUP.EXE')^.offs);
  33.  
  34.     { Si existe el VTO, ejecutar }
  35.     Assign(f, VtoFileSpec);
  36.     {$I-}
  37.     Reset(f);
  38.     {$I+}
  39.     if IOResult = 0 THEN BEGIN
  40.       Close(f);
  41.       { Ejecutar PUMP.EXE a través de SHELL.EXE }
  42.       FicheroExe := MainFile;
  43.       CommandLine := '@'+ VtoFileSpec;
  44.       ExecFile(LF_FindFile('DEMOVT.EXE')^.offs);
  45.       Assign(f, VtoFileSpec);
  46.       Erase(f);
  47.       Writeln('(c) 1995 Iguana.')
  48.     END
  49.    END ELSE IF (ParamCount = 2) THEN BEGIN
  50.      IF (ParamStr(1) = '11') THEN BEGIN
  51.        Write(Chr(7));
  52.        { Nos ha llamado el DemoVT... vamos a ello }
  53.        { Ejecutar el PUMP.EXE }
  54.        FicheroExe := MainFile;
  55.        { CommandLine := ParamStr(2); }
  56.        ExecFile(LF_FindFile('PUMPMAIN.EXE')^.offs);
  57.      END
  58.    END
  59. END.
  60.